home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / STRCMP.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  2KB  |  102 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8. ;
  9. ; strcmp- Compares two strings.
  10. ;
  11. ; inputs:
  12. ;
  13. ;    es:di-    First string (The string to compare)
  14. ;    dx:si-    Second string (The string to compare against)
  15. ;
  16. ;    e.g.,
  17. ;        "if (es:di < dx:si) then ..."
  18. ;
  19. ; returns: 
  20. ;
  21. ;    cx- index into strings where they differ (points at the zero byte
  22. ;        if the two strings are equal).
  23. ; 
  24. ;    Condition codes set according to the string comparison.  You should
  25. ;    use the unsigned branches (ja, jb, je, etc.) after calling this
  26. ;    routine.
  27. ;
  28.         public    sl_strcmp
  29. ;
  30. sl_strcmp    proc    far
  31.         push    es
  32.         push    ds
  33.         push    bx
  34.         push    ax
  35.         push    si
  36.         push    di
  37. ;
  38. ; Swap pointers so they're more convenient for the LODSB/SCASB instrs.
  39. ;
  40.         xchg    si, di
  41.         mov    ax, es
  42.         mov    ds, ax
  43.         mov    es, dx
  44. ;
  45.         xor    bx, bx        ;Set initial index to zero.
  46. ;
  47. ; In order to preserve the direction flag across this call, we have to
  48. ; test whether or not it is set here and execute two completely separate
  49. ; pieces of code (so we know which state to exit in.  Unfortunately, we
  50. ; cannot use pushf to preserve this flag since we need to return status
  51. ; info in the other flags.
  52. ;
  53.         pushf
  54.         pop    ax
  55.         test    ah, 4        ;Test direction bit.
  56.         jnz    DirIsSet
  57. sclp:        lodsb
  58.         scasb
  59.         jne    scNE        ;If strings are <>, quit.
  60.         inc    bx            ;Increment index into strs.
  61.         cmp    al, 0        ;Check for end of strings.
  62.         jne    sclp
  63.         pushf
  64.         dec    bx
  65.         popf
  66. ;
  67. scNE:        pop    di
  68.         pop    si
  69.         mov    cx, bx
  70.         pop    ax
  71.         pop    bx
  72.         pop    ds
  73.         pop    es
  74.         ret            ;Return with direction flag clear.
  75. ;
  76. ;
  77. DirIsSet:    lodsb
  78.         scasb
  79.         jne    scNE2         ;If strings are <>, quit.
  80.         inc    bx
  81.         cmp    al, 0         ;Check for end of strings.
  82.         jne    DirIsSet
  83.         pushf
  84.         dec    bx
  85.         popf
  86. ;
  87. scNE2:        pop    di
  88.         pop    si
  89.         mov    cx, bx
  90.         pop    ax
  91.         pop    bx
  92.         pop    ds
  93.         pop    es
  94.         std            ;Return with direction flag set.
  95.                 ret
  96.  
  97. sl_strcmp    endp
  98. ;
  99. ;
  100. stdlib        ends
  101.         end
  102.